SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


ccccccce SSSSSSSS_ PPPPPPPP 000000 PPPPPPPP ccccccce 000000 MM MM 
cccccccc SSSSSSSS PPPPPPPP 000000 PPPPPPPP cecceccce 000000 MM Min 

cc $$ PP PP 00 00 PP PP CC 00 00 MMMM MMMM 

cc S PP PP 00 0 PP PP tt 00 00 MMMM MMM 

cc $$ PP PP 00 00 PP PP CC 00 00 MM mM 

cc $s PP PP 00 00 PP PP CC 00 00 MM MM MM 

cc SSSSSS PPPPPPPP 00 00 PPPPPPPP cc 00 00 MM MM 

cc SSSSSS PPPPPPPP 00 00 PPPPPPPP cc 00 00 MM MM 

cc SS PP 00 00 PP cc 00 00 MM MM 

cc SS PP 00 00 PP cc 00 00 MM MM 

cc SS PP 00 00 PP cc 90 00 MM MM cece 

cc SS PP 00 00 PP cc 00 00 MM MM ees 
CCCCCCCC §=SSSSSSSS PP 009000 PP cccccccc 000000 MM MM eoee 
CCCCCCCC §=SSSSSSSS PP 000000 PP ccccccce 000000 MM MM eeee 

LL III SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL II $$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL H1111 SSSSSSSS 
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FACILITY: OPCOM,CSP 
ABSTRACT: pt module contains the cluster server action routine for 
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Environment: Full process context. 
Author: CW Hobbs 

Creation date: 14 July 1983 
Revision history: 
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v03-002 ADE0002 Alan D. Eldri dge 
Change CSPSOPCOM_ ACTION to CSPSOPCOM. 


v03-001 ADE0001 Alan D. Eldridge 4-F eb-1984 
General cleanup. 


28-Feb-1984 


BEGIN ! Start of CSPOPCOM 


LIBRARY ‘SY 
REQUIRE ‘LI 


LINKAGE 


ARY:LIB.L32'; 
EF’; 


vuz 
=] 


MODULE SOPUrEER , , 
IDEN AGE, (OL 1S83¢ 
PIPES ri tir i iii iiiitiitiititiiiiiiiiiiiiiiiiit) 
1 
1 
1 
1 
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: 5 JSB_2 = JSB (REGISTER=2); 
: 6 1 FORWARD ROUTINE 
: 41 CSPSOPCOM : JSB_2; 


6 
vouroo" CSPSOPCOM (CSD) 1$-se0-1944 EH CTR TS hie eae 
1 ZSBTTL "CSPSOPCOM 


(CS 
GLOBAL ROUTINE CSPSOP 
(CSD : REF BLOCK C,BYTEJ) : JS8_2 = 


e 
> 


Action routine for an inbound message from OPCOM on another node. Simply 
pass the message on to OPCOM on the local node. 


4 

1 

' 

' 

1 

: Input: 

CSD - Pointer to the address of the received CSD 
Implicit Input: 

None. 

Output: 
] 
4 
' 
1 
a 
+ 
1 
1 
i 
i 
i] 
1 


None. 


OOOO NNN NAN NNO OO 
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Implict output: 

None. 

Side effects: 

The message will be written to the operator's mailbox. 
Routine value: 
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8 
89 
90 
4! 
38 
94 ! None. 
95 Raed 
96 ! Start of CSPSOPCOM 
97 LOCAL 
98 DESC : VECTOR C2, LONG), ! String descriptor for the message 
66 1 STATUS ; 
| 
101 ! 
\ § 3 } Initialize the local string descriptor 
1 DESC £03 = .CSD PESDSL.SENDLEN 3 ! Stuff length of message 
! 5 DESC = .CSD CCSDSL_SENDOFF) ; ! Stuff address of message 
1 , 
; ! Send the message to the local operator 
110 STATUS = $SNDOPR (MSGBUF=DESC) ; 
\N¢ RETURN .STATUS ; 
11 END ; ! End of CSPSOPCOM 


“IDENT \VOs000\ 


~-EXTRN SYSSSNDOPR 
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3; Routine Size: 


CSPSOPCOM (CSD 


00 


27 bytes, 


i x 0 da 


. 38190 


) Fetish TTF 


-PSECT 
5E 04 C2 00000 CSPSOPCOM:: 
SUBL2 
i A2 0 3 PUSHL 
04 AE 1 4 D MOVL 
3 CLAL 
046 «OA F PUSHAB 
0000006 90 05 F 19 CALL 
E f 1 ADDL 
1A RSB 
Routine Base: S$CODES + 0000 
! End of C 


: PSECT SUMMARY 

3 Name Bytes Attributes 

; SCODES 27 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, R 
; Library Statistics 

eee tree ee ee eee Symbols -------- Pages 
: File Total Loaded Percent Mapped 
;  _$255$DUA28:(SYSLIBILIB.L32;1 18619 3 0 1000 


COMMAND QUALIFIERS 


ta bytes 


$3 AX-11 Bliss-3 


SYSLOA.SRCICS obcon. 


SCODES ,NOWRT,2 


SPOPCOM 


EL, CON,NOPIC,ALIGN(2) 


Processing 
Time 


00:01.4 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CSPOPCOM/0BJ=0BJ$:CSPOPCOM MSRC$:CSPOPCOM/UPDATE=(ENHS$: CSPOPCOM) 
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Use 66 pages 
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